home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER2 / DICE / DICE2.PI < prev    next >
Text File  |  1994-01-01  |  2KB  |  77 lines
  1. // DICE2.PI 
  2.  
  3. start_frame 0
  4. end_frame 359
  5. total_frames 360
  6.  
  7. outfile "dice"
  8.  
  9. viewpoint {
  10.    from <8, 8, 8>
  11.    at <0,0,0>
  12.    up <0,1,0>
  13.    angle 40
  14.    resolution 320,200
  15.    aspect 1.433
  16.    }
  17. background SkyBlue
  18.  
  19. include "\ply\colors.inc"
  20.  
  21. spot_light  white, <-5,10, 5>,<0,0,0>,3,5,20
  22. spot_light  white, < 5,10, 5>,<0,0,0>,3,5,20
  23.  
  24. define die1
  25.    object { 
  26.       object {box <-2,-2,-2>,<2,2,2> }
  27.    //1
  28.     - object {sphere < 0, 0,-2>, 0.4 matte_black }
  29.    //2
  30.     - object {sphere <-2,-1,-1>, 0.4 matte_black }
  31.     - object {sphere <-2, 1, 1>, 0.4 matte_black }
  32.    //3
  33.     - object {sphere <-1,-2,-1>, 0.4 matte_black }
  34.     - object {sphere < 0,-2, 0>, 0.4 matte_black }
  35.     - object {sphere < 1,-2, 1>, 0.4 matte_black }
  36.    //4
  37.     - object {sphere <-1, 2,-1>, 0.4 matte_black }
  38.     - object {sphere < 1, 2,-1>, 0.4 matte_black }
  39.     - object {sphere <-1, 2, 1>, 0.4 matte_black }
  40.     - object {sphere < 1, 2, 1>, 0.4 matte_black }
  41.    //5
  42.     - object {sphere < 2, 0, 0>, 0.4 matte_black }
  43.     - object {sphere < 2,-1,-1>, 0.4 matte_black }
  44.     - object {sphere < 2, 1, 1>, 0.4 matte_black }
  45.     - object {sphere < 2,-1, 1>, 0.4 matte_black }
  46.     - object {sphere < 2, 1,-1>, 0.4 matte_black }
  47.    //6
  48.     - object {sphere <-1, 1, 2>, 0.4 matte_black }
  49.     - object {sphere < 0, 1, 2>, 0.4 matte_black }
  50.     - object {sphere < 1, 1, 2>, 0.4 matte_black }
  51.     - object {sphere <-1,-1, 2>, 0.4 matte_black }
  52.     - object {sphere < 0,-1, 2>, 0.4 matte_black }
  53.     - object {sphere < 1,-1, 2>, 0.4 matte_black }
  54. }
  55.  
  56. define dice
  57. object {
  58.    die1 { rotate <45,45,0> }
  59.  * object { sphere < 0, 0, 0>, 2.85 }
  60. }
  61.  
  62. define pi 3.14159
  63. define rad pi/180
  64. define ang frame * rad
  65.  
  66. define factor 90
  67.  
  68. define xrotate factor * (2 * SIN(ang) + SIN(3 * ang) / 3)
  69. define yrotate factor * (2 * COS(ang) - COS(3 * ang) / 3)
  70. define zrotate factor * (COS(2 * ang))
  71.  
  72. dice { rotate <xrotate,yrotate,zrotate> }
  73.  
  74. include "marker.inc"
  75.  
  76.  
  77.